[db7908]: / Feature Extraction / extractAR.m

Download this file

30 lines (20 with data), 546 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function X=extractAR(x_train,AROrder,startS,endS,wStep,wRange)
FS=128;
N=size(x_train,3);
sz=floor((endS-(startS+wRange))/wStep)+1;
X=zeros(sz*FS,2);
cn=0;
for i=1:N
for sig=startS:wStep:endS-wRange
sW=sig*FS+1;
eW=(sig+wRange)*FS;
C3Sig=x_train(sW:eW,1,i);
C4Sig=x_train(sW:eW,3,i);
c3= arburg(C3Sig, AROrder);
c4= arburg(C4Sig, AROrder);
cn=cn+1;
X(cn,1)=sum(c3.^2)/numel(c3);
X(cn,2)=sum(c4.^2)/numel(c4);
end
end
end